home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / lib / tclX6.4c / dist / tests / all < prev    next >
Encoding:
Text File  |  1992-11-07  |  437 b   |  16 lines
  1. # This file contains a top-level script to run all of the Extended Tcl
  2. # tests.  Execute it by invoking "source all" when running tclTest
  3. # in this directory.
  4.  
  5. global errorInfo
  6.  
  7. foreach i [lsort [glob *.test]] {
  8.     puts stdout $i
  9.     if {[catch {source $i} msg] != 0} {
  10.         puts stdout [replicate "=" 75]
  11.         puts stdout "Uncaught error in $i: $msg"
  12.         puts stdout $errorInfo
  13.         puts stdout [replicate "=" 75]
  14.     }
  15. }
  16.